(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     37431,        977]
NotebookOptionsPosition[     35348,        901]
NotebookOutlinePosition[     35763,        919]
CellTagsIndexPosition[     35720,        916]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5411\:91cf\:64cd\:4f5c", "Chapter",
 CellChangeTimes->{3.8490668319351296`*^9}],

Cell[CellGroupData[{

Cell["\:5411\:91cf\:7279\:6027", "Subchapter",
 CellChangeTimes->{3.84906683894083*^9}],

Cell["\<\
\:573a\:666f\:5728\:4e09\:7ef4\:573a\:666f\:6709\:5404\:79cd\:5411\:91cf\:5b9a\
\:4e49\:ff0c\:6240\:6709\:7684\:64cd\:4f5c\:5b9e\:9645\:4e0a\:90fd\:662f\:5728\
\:505a\:4e09\:7ef4\:5411\:91cf\:8fd0\:7b97\:3002\:4e8c\:7ef4\:7684\:5411\:91cf\
\:548c\:4e09\:7ef4\:89c4\:5219\:76f8\:540c\:ff0c\:8fd9\:91cc\:4ee5\:4e8c\:7ef4\
\:5411\:91cf\:4e3a\:4f8b\:4ecb\:7ecd\:5411\:91cf\:7684\:8fd0\:7b97\:3002
\:5411\:91cf\:7531\:8d77\:70b9\:548c\:7ec8\:70b9\:5750\:6807\:5b9a\:4e49\
\>", "Text",
 CellChangeTimes->{3.8490668643273687`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"vecA", ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1.4"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Arrow", "[", "vecA", "]"}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8183822593060355`*^9, 3.818382263980503*^9}, {
   3.8183823681169157`*^9, 3.818382405328636*^9}, {3.8183824614492483`*^9, 
   3.81838250857596*^9}, {3.818382725325633*^9, 3.8183827349335938`*^9}, {
   3.818382777410841*^9, 3.8183827898250823`*^9}, 3.8183829302911277`*^9},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 GraphicsBox[ArrowBox[{{0.5, 1}, {2, 1.4}}],
  Axes->True,
  ImageSize->{147.99999999999972`, Automatic},
  PlotRange->{{-0.2, 2}, {-0.2, 2}}]], "Output",
 CellChangeTimes->{3.818382938495948*^9, 3.8489707935812283`*^9, 
  3.849067041588093*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWktIG0EYHvO2D/CgJlYPAUsrLbQh0JL2IBb6SKFCDoXmIFSRbmNLbbAi
tlDcQsEeCvYmOdmeUnrxEKh48uglxaNHT8GjR4/p/jOzm91kZvbfNb4gh92s
M/N/33z/zPzzcMan5guv3k3Nz0xPJZ/MTRULM9Mfko/fzxlJwS5CyKbx/E0S
+K4bn/y1Ser1OmQKfvrhJ1DXNO2XLYEEIYV+wTNI32HjXSUlI12jT4lUjdQA
z6uWNKJXapZNraIbeVAyaJWF9DjDJ/VahegOjO4WDBFfQmqPr0Mvx4DyGscP
0neIlKqsDMcKKKQH3T1GGUpVCxG+w/SvKKlXS45aUUV6hdQkXoooMEVewfD0
Oux0UqlBO8h5FJKvmHTUUwzKouP0MZPOVkYkNYzAEtl1C/D7eBp0BtMNUQR+
ACHVVrzRXxmcZ6kKLKzUfodUlhZB4B9RashRxuZNWkbeWn6lhz3w2Vsdw9cW
V0SsNF03QwbNVw5TX16QUg3YHcBHe+ikHADdskYqOksb4AGlVq3SanhV3+dq
7+QbcgwNjYZ0r9LplDiICBNmBexzT8KsMO18Rnqp5Cm09SnsIwK+uD3S87Zm
4sApTQ7wF/JUE5pZJUrP81ibh0hj3qQUqjksrjJxoscdYjRr0mZTHRMXVlAh
Zm7Td/YJP2IOOeqzxtqB+1w1aYvgRNHAhcLsGc3Z4AAVlULwz5PPojX9Aznd
toSmsmFkWqhje6Zso/LmH0amXUWWU1Ada6922y+dwpDqqDm/ak6ryjzsCra2
XjfUotjgJBHMwpj9qQrY+1bTBc3jbo6iUTAcBmab5L+GLjsPUaT2AuxcYcd8
N4touRz103tEy0J3IMHayGXFpWiRszquz2Eo6qg5ZTVBczj5PJZVxBcRtGof
6BEKs6FWDGIlpFtYpIh8ZaovLS0tLy4ujm1tbZFPbQAXLoCjyb29vcXl5eWt
sbGxw1gstpHNZosrKyupnZ0dstB+2mv0HYsdHh5mNzY2VorF4k4qldpPJBLl
fD4/uba2BlWaY8y8YQUnNX75bzD+xP7+fr5cLq9NTk7uJZPJ3ZGRkdVCoZBb
X1/vOTg4mHXytx6c+O0mt5jdyO7ubmF1dXU9l8sd9PT0bGcyGau13zJyNl48
nXmI+nqaMWa2t7elDf3afWiJjgFEdHdwDTwtDyH3cE30sjmWjSJcOyGnfYDw
U15u/hCn+7kcIYvTnZMjPBN7AOoBHoB6kXG5OUOOglLwACiHMQC/8Df1wFO5
OZMWBRZgA1ZgB/VQG1BPHsnNX7A0kAjyQTIJgANIEL4hDfJ4O9nafaIRyYAH
+FpUj8p5XyJU35ebTyNU35Wba0jVaTnEG4T+23LzWYT+m3LzOYT+681NtoBU
PSzn/YhQnZSbf0aoHpKbf0GoTsjNvyL198ohvtH3RaV+owTEHYhFFO6yHO47
Cz7N/viXTqfhF6CB5pIc4Qd9RyDc1vldAXigQhB6LzT3AVY+CMEK1jrwkBB9
0zQL97hO5eRL1LYcVCgXTf6OKESQov/bnjwE5l+oLecbciBfxw4uS0X8iYN0
zWeeESAPG5TrN/RJg3xN1jlj6Kg5C/U6rSof/caVKpzgLzGpUNhQtN0awVwV
Uoxfpsb7lRxEPPd6taUlnofsQB6uiJSd5l6vWXDzNtxXsCH5vAjwu9F5LGzN
WjlYaJZjxNtqjiK8YEm6/gMwHavp\
\>"]]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "\:5411\:91cf\:8fd8\:6709\:4e00\:79cd\:8868\:793a\:65b9\:5f0f\:5c31\:662f", 
    RowBox[{"(", 
     RowBox[{"\:8d77\:70b9", "-", "\:7ec8\:70b9"}], ")"}]}], "\:ff0c", 
   "\:6700\:7ec8\:662f\:4e00\:4e2a\:5750\:6807\:5f62\:5f0f", "\:3002", 
   "\:5b83\:8868\:793a\:628a\:5411\:91cf\:7684\:8d77\:70b9\:79fb\:5230\:539f\
\:70b9", "\:ff0c", 
   "\:8fd9\:4e48\:505a\:5e76\:4e0d\:5f71\:54cd\:4ed6\:4eec\:7684\:8fd0\:7b97\
\:7ed3\:679c", "\:ff0c", 
   "\:4f46\:76f8\:6bd4\:7b2c\:4e00\:79cd\:8868\:793a\:4f1a\:4e22\:5931\:4f4d\
\:7f6e\:4fe1\:606f", "\:3002", 
   SubscriptBox[
    "\:5982\:679c\:4e0d\:60f3\:4e22\:5931\:4f4d\:7f6e\:90a3\:4e48\:9700\:8981\
\:8bb0\:4f4f\:7b2c\:4e00\:4e2a\:5411\:91cf\:7684\:8d77\:70b9", "1"], "\:ff0c", 
   RowBox[{"\:8fd0\:7b97\:5b8c\:6210\:540e\:505a", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "+", 
       SubscriptBox["\:8d77\:70b9", "1"]}], ",", 
      RowBox[{"\:8ba1\:7b97\:7ed3\:679c", "+", 
       SubscriptBox["\:8d77\:70b9", "1"]}]}], ")"}]}], "\:3002"}], "Text",
  FontWeight->"Plain"]], "Input"]], "Text",
 CellChangeTimes->{{3.8490669973596706`*^9, 3.8490670059445286`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5411\:91cf\:52a0\:6cd5", "Subchapter",
 CellChangeTimes->{3.8490670345733914`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"VecAdd", "[", 
    RowBox[{"vec1_", ",", "vec2_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"vec1", "+", "vec2"}], "\[IndentingNewLine]", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"VecAdd", "[", 
           RowBox[{"vecAFromOrigin", ",", "p"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183926207580867`*^9, 3.8183926228182926`*^9}, {3.848972746063552*^9, 
  3.8489727510180473`*^9}, {3.8489736489211044`*^9, 3.848973669345147*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {-0.536, 0.815}, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {219., 225.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, 
           $CellContext`VecAdd[$CellContext`vecAFromOrigin, \
$CellContext`p$$]}]}, Axes -> True, PlotRange -> {{-1, 2}, {-1, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {260., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8183843840594897`*^9, 3.8183856984359236`*^9, {3.818385795186598*^9, 
   3.81838586942002*^9}, {3.818385909190997*^9, 3.818385961246202*^9}, 
   3.8183904898520174`*^9, 3.818392623622373*^9, 3.848970796164487*^9, {
   3.849067039078842*^9, 3.849067042999234*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5411\:91cf\:51cf\:6cd5", "Subchapter",
 CellChangeTimes->{3.849067051040038*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"VecMinus", "[", 
    RowBox[{"vec1_", ",", "vec2_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"vec1", "-", "vec2"}], "\[IndentingNewLine]", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], "+", "p"}], ",", 
          RowBox[{
           RowBox[{"VecMinus", "[", 
            RowBox[{"vecAFromOrigin", ",", "p"}], "]"}], "+", "p"}]}], "}"}], 
        "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183895011471567`*^9, 3.8183895132793703`*^9}, {3.818390103320368*^9, 
  3.8183901073547716`*^9}, {3.818390391141147*^9, 3.818390397407774*^9}, {
  3.8183925760226135`*^9, 3.8183925980858192`*^9}, {3.8489736785510674`*^9, 
  3.848973698187031*^9}, {3.8489737712763386`*^9, 3.8489737767068815`*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {0, 1}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {219., 225.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 
            0} + $CellContext`p$$, \
$CellContext`VecMinus[$CellContext`vecAFromOrigin, $CellContext`p$$] + \
$CellContext`p$$}]}, Axes -> True, PlotRange -> {{-1, 2}, {-1, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {260., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8183843840594897`*^9, 3.8183856984359236`*^9, {3.818385795186598*^9, 
   3.81838586942002*^9}, {3.818385909190997*^9, 3.818385961246202*^9}, 
   3.8183895145514975`*^9, 3.818390407216755*^9, {3.8183925813051414`*^9, 
   3.818392599196931*^9}, 3.848971302391123*^9, 3.8490670552504587`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5411\:91cf\:7684\:4e58\:6cd5", "Subchapter",
 CellChangeTimes->{3.8490670656635*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Mathematica\:4e2d\:5411\:91cf\:7684\:4e58\:6cd5\:6709\
3\:79cdTimes(*\:6216\:7a7a\:683c)Cross(\[Cross])Dot(.)", "Subsubsection"]], \
"Subsubsection",
 CellChangeTimes->{3.8490672443593683`*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Times", ":", "\:5411\:91cf\:548c\:6570\:5b57\:76f8\:4e58"}], 
  "Subsubtitle"]], "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.81838877711176*^9, 3.81838881671072*^9}, {
   3.818388850782127*^9, 3.818388854664515*^9}, {3.8183888924592943`*^9, 
   3.8183889346475124`*^9}, 3.818388974288476*^9, 3.8183896210731483`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vecAFromOrigin", ":=", 
   RowBox[{
    RowBox[{"vecA", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"vecA", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "vecAFromOrigin"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Times", "[", 
           RowBox[{"vecAFromOrigin", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8183896447405148`*^9, 3.818389742025242*^9}, {
  3.8183900803940754`*^9, 3.8183900936874046`*^9}, {3.8489737015933714`*^9, 
  3.8489737192741394`*^9}, {3.8489737607172832`*^9, 3.8489737638625975`*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 0.368, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 0, 2}}, Typeset`size$$ = {450., {221., 228.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$33744$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$33744$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin}], Red, 
         Arrow[{{0, 0}, $CellContext`vecAFromOrigin $CellContext`n$$}]}, Axes -> 
        True, PlotRange -> {{-0.2, 2}, {-0.2, 2}}], 
      "Specifications" :> {{$CellContext`n$$, 0, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {275., 282.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.818389734473487*^9, 3.8183897434123807`*^9}, 
   3.818390086696706*^9, 3.818390413998433*^9, {3.8183916424422646`*^9, 
   3.8183916670787287`*^9}}]
}, Closed]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Cross", ":", "\:5411\:91cf\:548c\:5411\:91cf\:76f8\:4e58"}], ",", 
   "\:53ef\:89c6\:5316\:9700\:8981\:5728\:4e09\:7ef4\:4e2d"}], 
  "Subsubtitle"]], "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{
  3.818389762563296*^9, {3.8183915464456663`*^9, 3.818391554540476*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vec3dFromOrigin", ":=", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "vec3dFromOrigin"}],
          "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"Cross", "[", 
           RowBox[{"vec3dFromOrigin", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], 
        "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.818384310242109*^9, 3.818384324196504*^9}, {
  3.818384372353319*^9, 3.8183843809611797`*^9}, {3.8183856151045914`*^9, 
  3.818385697661846*^9}, {3.818385753653445*^9, 3.818385960562134*^9}, {
  3.8183900585188885`*^9, 3.8183900673807745`*^9}, {3.818390428505883*^9, 
  3.818390505859618*^9}, {3.818390555163548*^9, 3.8183905664806795`*^9}, {
  3.818391410945118*^9, 3.8183914519982224`*^9}, {3.818391560166038*^9, 
  3.8183917094159613`*^9}, {3.8183917527132907`*^9, 3.8183918643214507`*^9}, {
  3.818392026651682*^9, 3.818392088688885*^9}, {3.81839212434245*^9, 
  3.818392125653581*^9}, {3.818392173814397*^9, 3.8183922378608007`*^9}, {
  3.848973724448656*^9, 3.848973757573969*^9}, {3.849068632773301*^9, 
  3.8490686497660003`*^9}, {3.8490687210531282`*^9, 3.8490687358406067`*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = -1.95, $CellContext`y$$ = \
-0.6400000000000001, $CellContext`z$$ = 0.06000000000000005, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 0}, -3, 3}, {{
       Hold[$CellContext`y$$], 2}, -3, 3}, {{
       Hold[$CellContext`z$$], 0}, -3, 3}}, Typeset`size$$ = {
    461., {254., 260.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$47078$$ = 
    0, $CellContext`y$47079$$ = 0, $CellContext`z$47080$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`x$$ = 0, $CellContext`y$$ = 
        2, $CellContext`z$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$47078$$, 0], 
        Hold[$CellContext`y$$, $CellContext`y$47079$$, 0], 
        Hold[$CellContext`z$$, $CellContext`z$47080$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{Arrowheads -> Small, 
         Arrow[{{0, 0, 0}, $CellContext`vec3dFromOrigin}], Red, 
         Arrow[{{0, 0, 
           0}, {$CellContext`x$$, $CellContext`y$$, $CellContext`z$$}}], 
         Green, 
         Arrow[{{0, 0, 0}, 
           
           Cross[$CellContext`vec3dFromOrigin, {$CellContext`x$$, \
$CellContext`y$$, $CellContext`z$$}]}]}, Axes -> True, 
        PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}}], 
      "Specifications" :> {{{$CellContext`x$$, 0}, -3, 
         3}, {{$CellContext`y$$, 2}, -3, 3}, {{$CellContext`z$$, 0}, -3, 3}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{522., {337., 344.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.8489708443033004`*^9, 3.8489708584447145`*^9}, 
   3.849067185310464*^9, 3.8490686538084044`*^9, {3.849068710361059*^9, 
   3.8490687370297256`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"Dot", ":", "\:5411\:91cf\:548c\:5411\:91cf\:76f8\:4e58"}], 
  "Subsubtitle"]], "Input",
 CellDingbat->"\[FilledSquare]"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"Dot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], ",", "p"}], "]"}]}], "}"}]}], 
         "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8183923116641808`*^9, 3.8183923401770315`*^9}, {
  3.818392379528966*^9, 3.8183924205490675`*^9}, {3.8183924594999623`*^9, 
  3.8183924991329255`*^9}, {3.848973784510665*^9, 3.8489737986850824`*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {-0.534, 0.8250000000000002}, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {0, 1}}, Automatic}}, Typeset`size$$ = {
    450., {224., 231.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {0, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, {1, 0}}], Red, 
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, {0, 
            Dot[{1, 0}, $CellContext`p$$]}}]}, Axes -> True, 
        PlotRange -> {{-2, 2}, {-2, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {0, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {266., 273.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.8183923088979034`*^9, 3.818392314189433*^9}, 
   3.8183923535433683`*^9, {3.8183923835793715`*^9, 3.8183924212651396`*^9}, {
   3.8183924740524178`*^9, 3.8183924999340057`*^9}, 3.849067195697502*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6807\:51c6\:5316", "Subsubsection",
 CellChangeTimes->{3.8490672253414664`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Green", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Normalize", "[", "p", "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.818392817481757*^9, 3.818392819975006*^9}, {
  3.818392850939102*^9, 3.8183928559696054`*^9}, {3.8183931068256884`*^9, 
  3.8183931338183875`*^9}, {3.8489738019644103`*^9, 3.848973820034217*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p$$ = {1, 1}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {1, 1}}, Automatic}}, Typeset`size$$ = {
    450., {224., 231.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`p$$ = {1, 1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Arrow[{{0, 0}, $CellContext`p$$}], Green, 
         Arrow[{{0, 0}, 
           Normalize[$CellContext`p$$]}]}, Axes -> True, 
        PlotRange -> {{-2, 2}, {-2, 2}}], 
      "Specifications" :> {{{$CellContext`p$$, {1, 1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{519., {266., 273.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.818392856843693*^9, {3.8183931232273283`*^9, 3.8183931345454607`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox["\:516c\:5f0f", "Subsubsection"]], "Input",
 CellChangeTimes->{{3.848971326584544*^9, 3.8489713287417593`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Times", "[", 
  RowBox[{"a", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Cross", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8183923116641808`*^9, 3.8183923401770315`*^9}, {
  3.818392379528966*^9, 3.8183924205490675`*^9}, {3.8183924594999623`*^9, 
  3.8183924991329255`*^9}, {3.8489713610139933`*^9, 3.8489714169125834`*^9}},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", " ", "x"}], ",", 
   RowBox[{"a", " ", "y"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.848971430776969*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "x"}], "+", 
  RowBox[{"b", " ", "y"}]}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.8489714307809696`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "c"}], " ", "y"}], "+", 
    RowBox[{"b", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{"c", " ", "x"}], "-", 
    RowBox[{"a", " ", "z"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], " ", "x"}], "+", 
    RowBox[{"a", " ", "y"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8489713728801804`*^9, {3.84897140897779*^9, 3.8489714307849703`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 87, 1, 80, "Chapter"],
Cell[CellGroupData[{
Cell[692, 27, 87, 1, 76, "Subchapter"],
Cell[782, 30, 533, 8, 63, "Text"],
Cell[CellGroupData[{
Cell[1340, 42, 1049, 29, 77, "Input"],
Cell[2392, 73, 2052, 36, 200, 168, 4, "CachedBoxData", "BoxData", "Output"]
}, Open  ]],
Cell[4459, 112, 1244, 27, 64, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5740, 144, 90, 1, 76, "Subchapter"],
Cell[CellGroupData[{
Cell[5855, 149, 2469, 65, 562, "Input"],
Cell[8327, 216, 2053, 40, 547, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10429, 262, 88, 1, 76, "Subchapter"],
Cell[CellGroupData[{
Cell[10542, 267, 2670, 69, 517, "Input"],
Cell[13215, 338, 2113, 41, 547, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15377, 385, 92, 1, 76, "Subchapter"],
Cell[CellGroupData[{
Cell[15494, 390, 217, 3, 42, "Subsubsection"],
Cell[15714, 395, 372, 7, 43, "Input"],
Cell[CellGroupData[{
Cell[16111, 406, 1722, 45, 355, "Input"],
Cell[17836, 453, 1873, 37, 721, "Output"]
}, Closed]],
Cell[19724, 493, 332, 8, 35, "Input"],
Cell[CellGroupData[{
Cell[20081, 505, 3159, 77, 445, "Input"],
Cell[23243, 584, 2593, 51, 733, "Output"]
}, Open  ]],
Cell[25851, 638, 156, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[26032, 646, 1994, 56, 395, "Input"],
Cell[28029, 704, 1955, 38, 559, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30033, 748, 87, 1, 42, "Subsubsection"],
Cell[CellGroupData[{
Cell[30145, 753, 1542, 42, 350, "Input"],
Cell[31690, 797, 1758, 36, 559, "Output"]
}, Open  ]],
Cell[33463, 836, 135, 2, 58, "Input"],
Cell[CellGroupData[{
Cell[33623, 842, 820, 21, 208, "Input"],
Cell[34446, 865, 213, 6, 46, "Output"],
Cell[34662, 873, 190, 5, 46, "Output"],
Cell[34855, 880, 441, 15, 46, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

